home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha Extra 2004 January / CyberMycha Extra 1-2004 (Poland) (Disc 2).bin / Pippi / gmsb.dir / Internal_4_gum.ls < prev    next >
Encoding:
Text File  |  2001-09-12  |  2.1 KB  |  105 lines
  1. property meSprite, xSprite, meMember, meWildMember, xFrame, pippi, mLoc, gumlist, emptyCounter, virgin
  2.  
  3. on beginSprite me
  4.   virgin = 1
  5.   meSprite = sprite(me.spriteNum)
  6.   xSprite = sprite(me.spriteNum + 1)
  7.   pippi = sprite(me.spriteNum - 4)
  8.   mLoc = meSprite.loc
  9.   emptyCounter = 0
  10.   gumlist = []
  11.   makeGumList(me)
  12. end
  13.  
  14. on makeGumList me
  15.   emptyCounter = emptyCounter + 1
  16.   repeat with n = 1 to 12
  17.     gumlist[n] = n
  18.   end repeat
  19.   if emptyCounter = 2 then
  20.     sound(2).play(member("outroSnd", 1))
  21.   end if
  22. end
  23.  
  24. on setmember me
  25.   if gumlist = [] then
  26.     makeGumList(me)
  27.   end if
  28.   v = random(gumlist.count)
  29.   meSprite.member = member("b" & string(gumlist[v]), 1)
  30.   meMember = meSprite.member
  31.   meWildMember = member(meMember.name & "w", 1)
  32.   xFrame = meMember.frameCount
  33.   gumlist.deleteAt(v)
  34. end
  35.  
  36. on mouseDown me
  37.   if the frameLabel = "main" then
  38.     pippi.mDown()
  39.   end if
  40.   stopEvent()
  41. end
  42.  
  43. on mouseUp me
  44.   if the frameLabel = "main" then
  45.     pippi.mUp()
  46.   end if
  47.   stopEvent()
  48. end
  49.  
  50. on mouseUpOutSide me
  51.   if the frameLabel = "main" then
  52.     pippi.mUp()
  53.   end if
  54.   stopEvent()
  55. end
  56.  
  57. on exitFrame me
  58.   if meSprite.loc = mLoc then
  59.     if meSprite.frame = xFrame then
  60.       xSprite.member = meWildMember
  61.       xSprite.loc = mLoc
  62.       xSprite.frame = 1
  63.       meSprite.stop()
  64.       meSprite.loc = point(0, 1000)
  65.       meSprite.frame = 1
  66.       updateStage()
  67.     else
  68.       if meSprite.frame = (xFrame / 2) then
  69.         virgin = 1
  70.       else
  71.         if meSprite.frame = 1 then
  72.           if virgin = 1 then
  73.             virgin = 0
  74.             setmember(me)
  75.           end if
  76.         end if
  77.       end if
  78.     end if
  79.   else
  80.     if soundBusy(1) = 1 then
  81.       sound(1).stop()
  82.     end if
  83.     if xSprite.frame = (xSprite.member.frameCount / 2) then
  84.       pippi.moveOut()
  85.       updateStage()
  86.     else
  87.       if xSprite.frame = xSprite.member.frameCount then
  88.         xSprite.loc = point(0, 1000)
  89.         meSprite.loc = mLoc
  90.         pippi.moveIn()
  91.         go(the frame - 1)
  92.         updateStage()
  93.       end if
  94.     end if
  95.   end if
  96. end
  97.  
  98. on setBack me
  99.   xSprite.loc = point(0, 1000)
  100.   meSprite.loc = mLoc
  101.   meSprite.frame = xFrame
  102.   pippi.moveIn()
  103.   updateStage()
  104. end
  105.